home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mapl0301.zip / MENUPLUS.STB < prev    next >
Text File  |  1993-03-01  |  3KB  |  108 lines
  1. ' $linesize:132
  2. ' $title: 'MenuPlus.Stb  Copyright 1993 by Pete Eibl'
  3. '  Copyright  (c) 1992 by Scott Thompson
  4. '  Name ...............: MenuPlus.Stb
  5. '  First Released .....: Feb 2, 1993
  6. '  Subsequent Releases.:
  7. '  Copyright ..........: (c) 1992 by Scott Thompson
  8. '
  9. '  Purpose.............: remove MenuV30 mods from Mpale code
  10. '                       
  11. '                       
  12. '
  13. '  Parameters..........: Most parameters are passed via a COMMON statement.
  14. '
  15. ' $SUBTITLE: 'MenuPlus - Stub File to remove MENUPLUS.BAS form Maple code'
  16. ' $PAGE   (C) 1992 by Scott Thompson
  17. '        additional  mods (C) by Pete Eibl 1993
  18. '
  19. ' $INCLUDE: 'RBBS-VAR.MOD'
  20. '  SUBPROGRAM NAME    -- MenuPlus
  21. '
  22. '
  23. '  SUBPROGRAM PURPOSE --  nice menu for RBBS
  24.  
  25. Sub MenuPlus (PR)  Static
  26. End Sub
  27.  
  28.  
  29. 100 ' $SUBTITLE: 'SysMenuPlus - sub to display RBBS-PC SYSOP menu enhnace vrs'
  30. '  $PAGE
  31. '
  32. '  NAME    --  SysMenuPlus
  33. '
  34. '  INPUTS  --  PARAMETER           MEANING
  35. '
  36. '  OUTPUTS --  NONE
  37. '
  38. '  PURPOSE --  TO DISPLAY enhanced SYSOP MENU ON THE LOCAL SCREEN
  39. '
  40.     SUB SysMenuPlus (AOK) STATIC
  41.     AOK = ZFalse
  42. End Sub
  43. '
  44. 112 ' $SUBTITLE: 'SysMenu - sub to display RBBS-PC SYSOP menu'
  45. '  $PAGE
  46. '
  47. '  NAME    --  SysMenu
  48. '
  49. '  INPUTS  --  PARAMETER           MEANING
  50. '
  51. '  OUTPUTS --  NONE
  52. '
  53. '  PURPOSE --  TO DISPLAY RBBS-PC's SYSOP MENU ON THE LOCAL SCREEN
  54. '
  55.     SUB SysMenu STATIC
  56.  
  57. Call SysMenuPlus (AOK)              'Pe Menu174
  58. If AOK = ZTrue then _             'Pe Menu174
  59.    Exit Sub
  60.  
  61.     ZLocalUser = ZTrue
  62.     ZSnoop = ZTrue
  63.     ZNonStop = ZTrue
  64.     CALL CheckTime (TIMER, ZDelay!, 1)
  65.     CLS
  66.     ZStopInterrupts = ZTrue
  67.     ZBypassTimeCheck = ZTrue
  68.     CALL BufFile ("MENU0",WasX)
  69.     ZNonStop = ZFalse
  70.     ZBypassTimeCheck = ZFalse
  71.     ZLocalUser = ZFalse
  72.     IF NOT ZOK THEN _
  73.     Call GetRBBSString(277,RBBSString$) : _     'Pe 01/26/93
  74.     OutTxt$ = RBBSString$ : _               'Pe 01/26/93 
  75.     CALL LPrnt(OutTxt$,1)
  76.     LOCATE 2,13
  77.     CALL LPrnt(LEFT$(ZVersionID$,13),0)
  78.     LOCATE 2,42
  79.     CALL LPrnt(ZNodeID$,0)
  80.     LOCATE 2,60
  81.     WasX$ = DATE$
  82.     CALL LPrnt(LEFT$(WasX$,6) + RIGHT$(WasX$,2),0)
  83.     LOCATE 2,74
  84.     CALL LPrnt(LEFT$(TIME$,5),0)
  85.     IF ZFMSDirectory$ <> "" THEN _
  86.        LOCATE 6,76 : _
  87.        CALL LPrnt("YES",0)
  88.     IF ZExtendedLogging THEN _
  89.        LOCATE 8,76 : _
  90.        CALL LPrnt("YES",0)
  91.     IF ZFossil THEN _
  92.        LOCATE 10,76 : _
  93.        CALL LPrnt("YES",0)
  94.     LOCATE 12,75 : _
  95.     CALL LPrnt(ZComPort$,0)
  96.     LOCATE 14,75
  97.     CALL LPrnt (STR$(CINT(FRE("A")/1024)) + "k",0)
  98.     IF ZDebug THEN _
  99.        LOCATE 22,76 : _
  100.        CALL LPrnt("Yes",0)
  101.     END SUB
  102. '
  103. '
  104.  
  105. Sub LocateMenu (RingBack,ScreenCleared,AOK,FF)  Static
  106. AOK = ZFalse
  107. END SUB
  108.